home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 076-100 / 084 / ed / find.c < prev    next >
C/C++ Source or Header  |  1995-03-13  |  599b  |  36 lines
  1. /*
  2.  * Copyright 1987 Brian Beattie Rights Reserved.
  3.  *
  4.  * Permission to copy and/or distribute granted under the
  5.  * following conditions:
  6.  *
  7.  * 1). No charge may be made other than resonable charges
  8.  *    for reproduction.
  9.  *
  10.  * 2). This notice must remain intact.
  11.  *
  12.  * 3). No further restrictions may be added.
  13.  *
  14.  */
  15. #include <stdio.h>
  16. #include "tools.h"
  17. #include "ed.h"
  18.  
  19. find(pat, dir)
  20. TOKEN    *pat;
  21. int    dir;
  22. {
  23.     int    num;
  24.     char    *lin;
  25.  
  26.     for(num = curln;(num = (dir ? nextln(num) : prevln(num))) != curln;)
  27.     {
  28.         lin = gettxt(num);
  29.         if(matchs(lin, pat, 0))
  30.         {
  31.             return(num);
  32.         }
  33.     }
  34.     return ( ERR );
  35. }
  36.